﻿Imports Microsoft.Reporting.WinForms

Public Class Form29
    Private dt As DataTable

    Private Sub Form29_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'Me.ketoantienmatTableAdapter.Fill(Me.erpharmaDataSet.ketoantienmat)
        Me.DonvisudungTableAdapter.Fill(Me.erpharmaDataSet.donvisudung)
        Me.IReportViewer2.setParameter(Me.erpharmaDataSet.donvisudung)
        'Me.IReportViewer2.LocalReport.SetParameters(New ReportParameter("tienchu", ""))
        Me.IReportViewer2.RefreshReport()

    End Sub
    Public Sub setDt(ByVal dt As DataTable)

        Me.erpharmaDataSet.ketoantienmat.Clear()
        Me.dt = dt
        Me.erpharmaDataSet.ketoantienmat.Merge(dt)
    End Sub
End Class